dim args:args=inputbox("layer number",args,"11")
dim ocmd:ocmd = "cl " & args
application.gui.processkeyin(ocmd)